hold on
c1=[0,0];
c2=[6,0];
c3=[3,3];
c4=[-2,1];
r1=3;
r2=5;
r3=2;
r4=4;

x=(snijtest([c1;c2],[r1,r2]) + snijtest([c2;c3],[r2,r3]) + snijtest([c3;c4],[r3,r4]) + snijtest([c4;c1],[r4,r1]))./4
plot([0,x(1,1)],[0,x(1,2)])
hold off